home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
pp001.zip
/
EX3.PRG
< prev
next >
Wrap
Text File
|
1991-04-11
|
181b
|
16 lines
Program EX3;
var
a : byte;
begin
A := 65;
While (A <= 90) do
begin
Write(A);
Emit(32,32,32,32,A,13,10);
A := A + 1;
end;
emit(13,10);
end.
.